home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / loancalc.arc / LOANCALC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-28  |  1KB  |  46 lines
  1. PROGRAM loancalc(input,output,lst);
  2. VAR
  3.   key : char;
  4.   {$I READINT.PAS}
  5.   {$I INTRAISE.PAS}
  6.   {$I RTRUNC.PAS}
  7.   {$I RROUND.PAS}
  8.   {$I LOANNAGN.PAS}
  9.  
  10.   {$I LOANRPAY.PAS}
  11.   {$I LOANRBAL.PAS}
  12.   {$I LOANLPAY.PAS}
  13.   {$I LOANAMRT.PAS}
  14.  
  15.  
  16. BEGIN
  17.   REPEAT
  18.     REPEAT
  19.       ClrScr; {clear screen and home cursor}
  20.       writeln;
  21.       writeln('LOAN CALCULATION PROGRAM');
  22.       writeln;
  23.       writeln('CALCULATION OPTIONS:');
  24.       writeln;
  25.       writeln('     A:  REGULAR PAYMENT ON A LOAN');
  26.       writeln('     B:  REMAINING BALANCE ON A LOAN');
  27.       writeln('     C:  LAST PAYMENT ON A LOAN');
  28.       writeln('     D:  PRINT MORTGAGE AMORTIZATION TABLE');
  29.       writeln;
  30.       writeln('     X:  EXIT TO SYSTEM');
  31.       writeln;
  32.       write('ENTER DESIRED OPTION:  ');
  33.       read(kbd,key);write(key);
  34.     UNTIL key IN ['A', 'a', 'B', 'b', 'C', 'c', 'D', 'd', 'X', 'x'];
  35.     writeln; writeln;
  36.  
  37.     IF NOT (key IN ['X', 'x']) THEN
  38.       CASE key OF
  39.         'A','a': RegPayLoan;
  40.         'B','b': RemainingBalance;
  41.         'C','c': LastLoanPayment;
  42.         'D','d': MortgageAmortization;
  43.       END
  44. UNTIL key IN ['X', 'x'];
  45. ClrScr; {clear screen and home cursor}
  46. END.